home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / nominee '84 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  22KB  |  684 lines
  1. 100 rem *** nominee '84
  2. 110 rem *** by david bianco
  3. 120 rem *** translated for the commodore
  4. 130 rem *** by donna k. woody
  5. 140 poke53281,1:poke53280,15:printchr$(144):poke53272,23
  6. 180 printchr$(8)
  7. 190 rem *** title page ***
  8. 200 :
  9. 210 printchr$(147):print"[206] [207] [205] [201] [206] [197] [197]  ' 8 4[144]"
  10. 220 print"[212]he game that lets you campaign against":print
  11. 225 print"[215]alter [205]ondale, [199]ary [200]art, and the rest":print
  12. 227 print"by testing your knowledge of president-":print
  13. 230 print"ial politics and of the 1984 [196]emocratic":print
  14. 235 print"campaign for the presidential nomination"
  15. 240 print:printtab(5)"[194] [217]   [196] [193] [214] [201] [196]   [194] [201] [193] [206] [195] [207]"
  16. 250 print:print"[156][212]ranslated for the [195]ommodore by"
  17. 255 print:printtab(13)"[155][196]onna [203]. [215]oody[144]"
  18. 257 poke781,23:poke782,16:sys65520:print"[193][206][217] [203][197][217]";:poke198,0:wait198,1:getke$
  19. 258 printchr$(147)
  20. 259 :
  21. 260 rem *** set up ***
  22. 270 dime(9),w(25),d(1),de(10),td(5),c$(12)
  23. 310 c$(2)="[215]alter [205]ondale"
  24. 320 c$(3)="[199]ary [200]art"
  25. 330 c$(4)="[202]esse [202]ackson"
  26. 340 c$(5)="[199]eorge [205]c[199]overn"
  27. 350 c$(6)="[202]ohn [199]lenn"
  28. 360 c$(7)="[193]lan [195]ranston"
  29. 370 c$(8)="[210]eubin [193]skew"
  30. 380 c$(9)="[197]rnest [200]ollings"
  31. 390 c$(10)="[213]ncommitted"
  32. 395 c$(12)="[199]eraldine [198]erraro"
  33. 400 printchr$(147):print
  34. 420 print"[215]hat is your full name, [205]r./[205]s."
  35. 425 input"candidate";n$:iflen(n$)<12thenn$=n$+left$("              ",13-len(n$))
  36. 427 c$(1)=left$(n$,12):n$=left$(n$,12)
  37. 430 print:print"[195]ongratulations on your recent an-"
  38. 435 print"nouncement of your candidacy for"
  39. 437 print"president, "n$:print:print
  40. 440 print"[201]f you do become the nominee, who do"
  41. 442 print"you have in mind for [214]ice [208]resident?"
  42. 445 inputc$(11):v(1)=11
  43. 447 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  44. 450 print"[212]he following people are running for    president against you:"
  45. 460 print
  46. 470 forx=2to9
  47. 480 printx-1;"- ";
  48. 490 printc$(x)
  49. 500 next x
  50. 510 print
  51. 520 print:print:print"[208][210][197][211][211][160][193][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  52. 529 :
  53. 530 rem *** questions ***
  54. 540 print"[196]uring your campaign, you will be asked"
  55. 545 print"questions to determine your popularity."
  56. 550 print:print"[193]nswer all '[215]hich [195]andidate' questions"
  57. 552 print"with a last name.  [193]nswer all [217][197][211] or [206][207]"
  58. 555 print"questions with 'y' or 'n'."
  59. 557 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  60. 560 forx=1to5:gosub4860
  61. 570 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$
  62. 575 printchr$(147):next
  63. 580 r3=11:gosub4450
  64. 589 :
  65. 590 rem *** iowa ***
  66. 600 printchr$(147)
  67. 610 printtab(14)"[201][207][215][193] [195][193][213][195][213][211]"
  68. 620 print:print"[193]ll 9 major candidates are scrambling"
  69. 625 print"for votes in the caucuses tonight,      [198]ebruary 21.":print:print
  70. 630 gosub4860
  71. 640 r3=5:gosub4450
  72. 650 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$
  73. 660 printchr$(147)"[200]ere are the election totals...":print:print
  74. 670 e(1)=int(d(1)/100*52):de(1)=de(1)+e(1)
  75. 680 e(2)=int(33*(100-d(1))/100):de(2)=de(2)+e(2)
  76. 690 e(3)=int(18*(100-d(1))/100):de(3)=de(3)+e(3)
  77. 700 e(5)=1:de(5)=de(5)+e(5)
  78. 710 kk=9:gosub6010
  79. 790 print:print"[193]ll the candidates have decided to go"
  80. 795 print"on to [206]ew [200]ampshire next [212]uesday."
  81. 799 print:print
  82. 800 print"[212]he television networks have been"
  83. 805 print"accused of annoucing the results early."
  84. 807 print:print:print
  85. 810 print"[193][206][217] [203][197][217] [198][207][210] [212][200][197] [206][197][216][212] [208][210][201][205][193][210][217]";:poke198,0:wait198,1:getke$
  86. 820 printchr$(147)
  87. 830 printtab(9)"[206][197][215] [200][193][205][208][211][200][201][210][197] [208][210][201][205][193][210][217]"
  88. 840 print:print"[215]alter [205]ondale has predicated he will"
  89. 845 print"win.":print:print:printn$" and [199]ary [200]art have"
  90. 847 print"predicated second place."
  91. 850 gosub4860
  92. 860 r3=10:gosub4450
  93. 862 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  94. 880 print"[212]his just in....":print:print
  95. 890 print"[201]t seems [199]ary [200]art is beating [215]alter    [205]ondale...":print:print:print
  96. 900 printn$" is still an unknown"
  97. 902 print"factor in this race."
  98. 905 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  99. 906 print"[200]ere are the final results coming in...":print
  100. 910 e(1)=int(d(1)/100*18):de(1)=de(1)+e(1)
  101. 920 e(2)=int(8*(100-d(1))/100):de(2)=de(2)+e(2)
  102. 930 e(3)=int(10*(100-d(1))/100):de(3)=de(3)+e(3)
  103. 940 e(5)=0
  104. 950 kk=9:gosub6010
  105. 1030 print
  106. 1040 forx=7to9:printc$(x)" has dropped out.":next
  107. 1045 print:print:print"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  108. 1050 print:print"[212]oday's results ensure that this race"
  109. 1055 print"will become a marathon.":print
  110. 1060 print"[194]etween now and '[211]uper [212]uesday', when"
  111. 1062 print"the most delegates are chosen, there"
  112. 1064 print"are caucuses in [205]ain and [215]yoming."
  113. 1065 print:print:print
  114. 1066 print"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][215][200][193][212][160][200][193][208][208][197][206][197][196]      [212][200][197][210][197].";:poke198,0:wait198,1
  115. 1068 getke$
  116. 1070 printchr$(147)
  117. 1080 print"         [205][207][206][196][193][204][197]    [200][193][210][212]    ";left$(n$,15)
  118. 1090 reads$,m,h
  119. 1100 e(1)=int(d(1)/100*(m+h)):de(1)=de(1)+e(1)
  120. 1110 m=int(m*(100-d(1))/100):de(2)=de(2)+m
  121. 1120 h=int(h*(100-d(1))/100):de(3)=de(3)+h
  122. 1130 print:prints$;:forx=1to100:print" ";:ifpeek(211)=10then1150
  123. 1140 nextx
  124. 1150 printspc(4-len(str$(m))-1);m,
  125. 1152 printspc(4-len(str$(h))-1);h,
  126. 1154 printspc(4-len(str$(e(1)))-1);e(1)
  127. 1160 ifs$="[215]yoming"thenprint:print:print:goto1200
  128. 1170 goto1090
  129. 1180 data"[205]aine",12,13,"[215]yoming",7,8
  130. 1200 gosub4520
  131. 1210 print:print:print"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][206][197][216][212][160][208][210][201][205][193][210][217]";:poke198,0:wait198,1:getke$
  132. 1220 printchr$(147)
  133. 1230 printtab(9)"[205][193][211][211][193][195][200][213][211][197][212][212][197][211][160][208][210][201][205][193][210][217]"
  134. 1240 print:print"[212]oday is [205]arch 13, [211]uper [212]uesday."
  135. 1242 print"[208]rimaries and caucuses are being held"
  136. 1244 print"in 9 states.  [212]he second biggest of"
  137. 1246 print"them is [205]assachusetts, where [199]eorge"
  138. 1248 print"[205]c[199]overn says if he doesn't get 2nd"
  139. 1250 print"place, he will drop out.":print
  140. 1260 gosub4860
  141. 1270 r3=5:gosub4450
  142. 1275 print:print:print"[208][210][197][211][211][160][193][160][203][197][217]";:poke198,0:wait198,1:getke$:printchr$(147)
  143. 1280 print"[212]he results are as follows:":print:print
  144. 1300 e(1)=int(d(1)/100*100):de(1)=de(1)+e(1)
  145. 1310 e(2)=int(31*(100-d(1))/100):de(2)=de(2)+e(2)
  146. 1320 e(3)=int(47*(100-d(1))/100):de(3)=de(3)+e(3)
  147. 1330 e(5)=int(22*(100-d(1))/100):de(5)=de(5)+e(5)
  148. 1340 kk=6:gosub6010
  149. 1410 print
  150. 1420 print"[199]eorge [205]c[199]overn has decided to withdraw"
  151. 1422 print"his candidacy, due to his less than 2nd"
  152. 1424 print"place finish here.":print:print:print
  153. 1430 print"[198][207][210][160][212][200][197][160][207][212][200][197][210][160][211][213][208][197][210][160][212][213][197][211][196][193][217][160][210][193][195][197][211], [208][210][197][211][211][193][160][203][197][217].";:poke198,0:wait198,1
  154. 1432 getke$
  155. 1450 rem *** figure and print the delegates for the non-highlighted primaries
  156. 1452 rem *** and caucuses
  157. 1460 printchr$(147)
  158. 1470 print"           [205][207][206][196][193][204][197] [200][193][210][212] [202][193][195][203][211][207][206]  ";left$(n$,6)
  159. 1480 reads$,m,h,j
  160. 1490 e(1)=int(d(1)/100*(m+h+j)):de(1)=de(1)